home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1993 July / InfoMagic USENET CD-ROM July 1993.ISO / sources / misc / volume3 / pcmail / part08 < prev    next >
Encoding:
Internet Message Format  |  1989-02-03  |  6.1 KB
  1. Path: xanth!mcnc!ncsuvx!lll-winken!lll-tis!ames!necntc!ncoast!allbery
  2. From: wswietse@eutrc3.UUCP (Wietse Venema)
  3. Newsgroups: comp.sources.misc
  4. Subject: v03i009: uucp mail for pc's (8 of 8)
  5. Message-ID: <217@eutrc3.UUCP>
  6. Date: 20 Apr 88 17:04:02 GMT
  7. Sender: allbery@ncoast.UUCP
  8. Reply-To: wswietse@eutrc3.UUCP (Wietse Venema)
  9. Organization: Tech. Univ. Eindhoven, Neth.
  10. Lines: 227
  11. Approved: allbery@ncoast.UUCP
  12.  
  13. comp.sources.misc: Volume 3, Issue 9
  14. Submitted-By: "Wietse Venema" <wswietse@eutrc3.UUCP>
  15. Archive-Name: pcmail/Part8
  16.  
  17. #! /bin/sh
  18. # This is a shell archive.  Remove anything before this line, then unpack
  19. # it by saving it into a file and typing "sh file".  To overwrite existing
  20. # files, type "sh file -c".  You can also feed this as standard input via
  21. # unshar, or by typing "sh <file", e.g..  If this archive is complete, you
  22. # will see the following message at the end:
  23. #        "End of archive 8 (of 8)."
  24. # Contents:  ascf.h dir.h logs.h myalloc.c termcap/makefile.msc
  25. # Wrapped by wietse@eutwc1 on Wed Apr 20 16:45:50 1988
  26. PATH=/bin:/usr/bin:/usr/ucb ; export PATH
  27. if test -f ascf.h -a "${1}" != "-c" ; then 
  28.   echo shar: Will not over-write existing file \"ascf.h\"
  29. else
  30. echo shar: Extracting \"ascf.h\" \(299 characters\)
  31. sed "s/^X//" >ascf.h <<'END_OF_ascf.h'
  32. X
  33. Xtypedef struct {
  34. X    char *buf;            /* intermediate buffer */
  35. X    char *ptr;            /* read pointer */
  36. X    int    cnt;            /* buffer size */
  37. X    char nlf;            /* newline kludge */
  38. X} Asc;
  39. X
  40. X#define    ascget(p)    (--asc[fileno(p)].cnt>=0?*asc[fileno(p)].ptr++&0377:ascbuf(p))
  41. X
  42. Xextern FILE *ascopen();
  43. Xextern Asc asc[];
  44. END_OF_ascf.h
  45. if test 299 -ne `wc -c <ascf.h`; then
  46.     echo shar: \"ascf.h\" unpacked with wrong size!
  47. fi
  48. # end of overwriting check
  49. fi
  50. if test -f dir.h -a "${1}" != "-c" ; then 
  51.   echo shar: Will not over-write existing file \"dir.h\"
  52. else
  53. echo shar: Extracting \"dir.h\" \(788 characters\)
  54. sed "s/^X//" >dir.h <<'END_OF_dir.h'
  55. X/*++
  56. X/* NAME
  57. X/*    dir    5
  58. X/* SUMMARY
  59. X/*    directory access specification
  60. X/* PROJECT
  61. X/*    dos/unix compatibility
  62. X/* PACKAGE
  63. X/*    library functions
  64. X/* DESCRIPTION
  65. X/* .nf
  66. X
  67. X/* /* directory access functions */
  68. X
  69. Xextern char *readdir();
  70. X
  71. X#ifdef    unix
  72. X#define    opendir(id)    open(id,0)    /* a directory is just */
  73. X#define    closedir(id)    close(id)    /* another file */
  74. X#endif
  75. X
  76. X#ifdef    MSDOS
  77. Xextern int opendir();            /* a directory is a very */
  78. Xextern int closedir();            /* special file */
  79. X#endif
  80. X/* AUTHOR(S)
  81. X/*    Wietse Venema
  82. X/*    Eindhoven University of Technology
  83. X/*    Department of Mathematics and Computer Science
  84. X/*    Den Dolech 2, P.O. Box 513, 5600 MB Eindhoven, The Netherlands
  85. X/* CREATION DATE
  86. X/*    Mon Nov 17 19:38:19 GMT+1:00 1986
  87. X/* LAST MODIFICATION
  88. X/*    Mon Apr  4 23:39:00 MET 1988
  89. X/* VERSION/RELEASE
  90. X/*    1.3
  91. X/*--*/
  92. END_OF_dir.h
  93. if test 788 -ne `wc -c <dir.h`; then
  94.     echo shar: \"dir.h\" unpacked with wrong size!
  95. fi
  96. # end of overwriting check
  97. fi
  98. if test -f logs.h -a "${1}" != "-c" ; then 
  99.   echo shar: Will not over-write existing file \"logs.h\"
  100. else
  101. echo shar: Extracting \"logs.h\" \(873 characters\)
  102. sed "s/^X//" >logs.h <<'END_OF_logs.h'
  103. X/*++
  104. X/* NAME
  105. X/*    logs 5
  106. X/* SUMMARY
  107. X/*    various message services
  108. X/* PROJECT
  109. X/*    pc-mail
  110. X/* PACKAGE
  111. X/*    cico
  112. X/* SYNOPSIS
  113. X/*    #include "logs.h"
  114. X/* DESCRIPTION
  115. X/* .nf
  116. X
  117. X/* /* globally visible components */
  118. X
  119. X#define debug(l) if (dflag >= l) dbg    /* yuk! */
  120. X
  121. Xextern int dflag;                       /* debugging level */
  122. Xextern int *systrap;            /* panic button */
  123. X
  124. Xextern void trap();            /* exception handler */
  125. Xextern int open_log();            /* open log file */
  126. Xextern void dbg();            /* write debug info */
  127. Xextern void log();            /* write loggin info */
  128. X/* FILES
  129. X/*    logfile
  130. X/* AUTHOR(S)
  131. X/*    W.Z. Venema
  132. X/*    Eindhoven University of Technology
  133. X/*    Department of Mathematics and Computer Science
  134. X/*    Den Dolech 2, P.O. Box 513, 5600 MB Eindhoven, The Netherlands
  135. X/* CREATION DATE
  136. X/*    Sun Apr 12 13:45:11 GMT+1:00 1987
  137. X/* LAST MODIFICATION
  138. X/*    Mon Apr  4 23:44:17 MET 1988
  139. X/* VERSION/RELEASE
  140. X/*    1.3
  141. X/*--*/
  142. END_OF_logs.h
  143. if test 873 -ne `wc -c <logs.h`; then
  144.     echo shar: \"logs.h\" unpacked with wrong size!
  145. fi
  146. # end of overwriting check
  147. fi
  148. if test -f myalloc.c -a "${1}" != "-c" ; then 
  149.   echo shar: Will not over-write existing file \"myalloc.c\"
  150. else
  151. echo shar: Extracting \"myalloc.c\" \(392 characters\)
  152. sed "s/^X//" >myalloc.c <<'END_OF_myalloc.c'
  153. X#include "defs.h"
  154. X
  155. X/* fatal - another way to terminate */
  156. X
  157. X/* VARARGS1 */
  158. X
  159. Xpublic fatal(fmt,a1,a2,a3,a4)
  160. Xchar *fmt;
  161. Xlong a1,a2,a3,a4;
  162. X{
  163. X    fprintf(stderr,fmt,a1,a2,a3,a4);
  164. X    abort();
  165. X}
  166. X
  167. X/* myalloc - allocate memory or terminate */
  168. X
  169. Xpublic char *myalloc(size)
  170. Xint size;
  171. X{
  172. X    register char *p;
  173. X
  174. X    if ((p = malloc((unsigned)size)) == 0)
  175. X    fatal("memory allocation error");
  176. X    return(p);
  177. X}
  178. END_OF_myalloc.c
  179. if test 392 -ne `wc -c <myalloc.c`; then
  180.     echo shar: \"myalloc.c\" unpacked with wrong size!
  181. fi
  182. # end of overwriting check
  183. fi
  184. if test -f termcap/makefile.msc -a "${1}" != "-c" ; then 
  185.   echo shar: Will not over-write existing file \"termcap/makefile.msc\"
  186. else
  187. echo shar: Extracting \"termcap/makefile.msc\" \(331 characters\)
  188. sed "s/^X//" >termcap/makefile.msc <<'END_OF_termcap/makefile.msc'
  189. XCFLAGS  = 
  190. XLIB     = /lib
  191. X
  192. XOBJECTS = tgoto.o tgetnum.o tgetstr.o tputs.o tgetflag.o tgetent.o console.o
  193. X
  194. X.c.o:
  195. X    cl $(CFLAGS) -c $*.c
  196. X    mv $*.obj $@
  197. X
  198. Xtermcap.lib: $(OBJECTS)
  199. X    rm -f $@
  200. X    lib $@ $(OBJECTS) ;
  201. X
  202. X$(OBJECTS): termcap.h
  203. X
  204. Xcleanup clean:
  205. X    rm -f $(OBJECTS)
  206. X
  207. Xclobber: clean
  208. X    rm -f termcap.lib
  209. X
  210. Xinstall: termcap.lib
  211. X    cp $? \lib
  212. X
  213. X
  214. END_OF_termcap/makefile.msc
  215. if test 331 -ne `wc -c <termcap/makefile.msc`; then
  216.     echo shar: \"termcap/makefile.msc\" unpacked with wrong size!
  217. fi
  218. # end of overwriting check
  219. fi
  220. echo shar: End of archive 8 \(of 8\).
  221. cp /dev/null ark8isdone
  222. MISSING=""
  223. for I in 1 2 3 4 5 6 7 8 ; do
  224.     if test ! -f ark${I}isdone ; then
  225.     MISSING="${MISSING} ${I}"
  226.     fi
  227. done
  228. if test "${MISSING}" = "" ; then
  229.     echo You have unpacked all 8 archives.
  230.     rm -f ark[1-9]isdone
  231. else
  232.     echo You still need to unpack the following archives:
  233.     echo "        " ${MISSING}
  234. fi
  235. ##  End of shell archive.
  236. exit 0
  237. -- 
  238. uucp:    mcvax!eutrc3!wswietse    | Eindhoven University of Technology
  239. bitnet:    wswietse@heithe5    | Dept. of Mathematics and Computer Science
  240. surf:    tuerc5::wswietse    | Eindhoven, The Netherlands.
  241.